﻿Public Class Site_Mobile
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Context.User.Identity.Name Is "" Then

            Account_PlaceHolder1.Visible = False
        Else
            Dim new_href As New HyperLink()
            If Roles.IsUserInRole(Context.User.Identity.Name(), "admin") Then
            Else
                Account_PlaceHolder1.Visible = True
                new_href.Text = "My Account"
                new_href.NavigateUrl = "~/Profile.aspx?Bibliophile=" + Context.User.Identity.Name
                Account_PlaceHolder1.Controls.Add(new_href)


            End If
        End If
    End Sub

End Class